VBS如何写一段判断语句,判断某台计算机是否能ping通,如果可以ping通,再...答:Set shell=WScript.CreateObject("wscript.shell")ip="12.0.0.1"Set pingResult=shell.Exec("cmd /c ping "&ip)splistStr=pingResult.StdOut.ReadAll If InStr(1,splistStr,"%",1)<>0 Then 'lost=Split(Split(splistStr,"(",-1,1)(1),"%",-1,1)(0)'/// 'ping 失败的结果 ...